home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / zoc205.zip / INSTALL.FIL / SCRIPT / RXSAMPLE / MANUAL / IF1.RX < prev    next >
Text File  |  1994-11-01  |  583b  |  34 lines
  1. /* REXX sample about decisions */
  2.  
  3. 'TIMEOUT 60'
  4.  
  5.  
  6. /* Wait for 'Name?' - check for success and 
  7.    report error */
  8. 'WAIT "Name?"'
  9.  
  10. IF RC=0 THEN 
  11. DO /* received 'Name?' */
  12.    'SEND "Joe User^M"'
  13. END
  14. ELSE
  15. DO /* Ouch, 'Name?' was not received */
  16.    'WRITELN "ERROR (Name)!!"'
  17.    'HANGUP'
  18. END
  19.  
  20.  
  21. /* Wait for 'Password?' - check for success and 
  22.    report error */
  23. 'WAIT "Password?"'
  24.  
  25. IF RC=0 THEN 
  26. DO /* received 'Password?' */
  27.    'SEND "mypassword^M"'
  28. END
  29. ELSE
  30. DO /* Ouch, 'Password?' was not received */
  31.    'WRITELN "ERROR (Password)!!"'
  32.    'HANGUP'
  33. END
  34.